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Abstract 

In 1990 J-L. Krivine introduced the notion of storage operators. They are A-terms which simulate 
call-by-value in the call-by-name strategy and they can be used in order to modelize assignment 
instructions. J-L. Krivine has shown that there is a very simple second order type in AF2 type 
system for storage operators using Godel translation of classical to intuitionistic logic. 
In order to modelize the control operators, J-L. Krivine has extended the system AF2 to the classical 
logic. In his system the property of the unicity of integers representation is lost, but he has shown 
that storage operators typable in the system AF2 can be used to find the values of classical integers. 
In this paper, we present a new classical type system based on a logical system called mixed logic. 
We prove that in this system we can characterize, by types, the storage operators and the control 
operators. We present also a similar result in the M. Parigot's A/i-calculus. 

1 Introduction 

In 1990, J.L. Krivine introduced the notion of storage operators (see [4]). They are closed A-terms which 
allow, for a given data type (the type of integers, for example), to simulate in A-calculus the "call by 
value" in a context of a "call by name" (the head reduction) and they can be used in order to modelize 
assignment instructions. J.L. Krivine has shown that the formula Vx{A^*[x] -^^N[x]} is a specification 
for storage operators for Church integers : where N[x] is the type of integers in AF2 type system, and 
the operation * is the simple Godel translation from classical to intuitionistic logic which associates to 
every formula F the formula F* obtained by replacing in F every atomic formula by its negation (see [3]). 

The latter result suggests many questions : 

• Why do we need a Godel translation ? 

• Why do we need the type A^*[2;] which characterize a class larger than integers ? 

In order to modelize the control operators, J-L. Krivine has extended the system AF2 to the classical 
logic (see [6]). His method is very simple : it consists of adding a new constant, denoted by C, with 
the declaration C : \/X{^^X — > X} which axiomatizes classical logic over intuitionistic logic. For the 
constant C, he adds a new reduction rule : (Ctti...t„) — > (t Xx{x ti...tn)) which is a particular case of 
a rule given by Felleisen for control operator (see [1] ) . In this system the property of the unicity of inte- 
gers representation is lost, but J-L. Krivine has shown that storage operators typable in the intuitionistic 
system AF2 can be used to find the values of classical integers ^ (see [6] ) . 



^The idea of using storage operators in classical logic is due to M. Parigot (see [19]) 
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The latter result suggests also many questions : 

• What is the relation between classical integers and the type iV*[a;] ? 

• Why do wc need intuitionistic logic to modelize the assignment instruction and classical logic to 
modelize the control operators ? 

In this paper, wc present a new classical type system based on a logical system called mixed logic. This 
system allows essentially to distinguish between classical proofs and intuitionistic proofs. Wo prove that, 
in this system, we can characterize, by types, the storage operators and the control operators. This 
results give some answers to the previous questions. 

We present at the end (without proof) a similar result in the M. Parigot's A/x-calculus. 

Acknowledgement. We wish to thank J.L. Krivine, and C. Paulin for helpful discussions. We don't 
forget the numerous corrections and suggestions from R. David and N. Bernard. 

2 Pure and typed A-calculus 

• Let t, M, ui, Un be A-terms, the application of t to u is denoted by {t)u. In the same way we write 
{t)ui...Un instead of (...((t)ui)...)u„. 

• Fv{t) is the set of free variables of a A-term t. 

• The /3-reduction (resp. /3-equivalence) relation is denoted by u -^jj v (resp. u ~/3 v). 

• The notation (j{t) represents the result of the simultaneous substitution <j to the free variables of t 
after a suitable renaming of the bounded variables of t. 

• We denote by {uf^v the A-tcrm {v)...(u)v where u occurs n times, and u the sequence of A-terms 
ui, ...,Un- If M = ui, ...,Un n > 0, WC denote by {t)u the A-term {t)ui...Un- 

• Let us recall that a A-term t either has a head redex [i.e. t = Xxi...Xxn{^xu)vvi...Vm, the head 
redex being {Xxu)v], or is in head normal form [i.e. t = Axi...Aa;„(x)ui...f„i]. The notation u )~ v 
means that v is obtained from u by some head reductions. liu>- v, we denote by h{u, v) the length 
of the head reduction between u and v. 

Lemma 2.1 (see [3]) 

1) If u >- V, then, for any substitution a, a{u) >- a{v), and h{a{u),a{v))=h(u,v). 

2) If u >- V, then, for every sequence of X-terms W, there is a w, such that {u)W >- w, {v)W >- w, and 
h{{u)W,w) = h{{v)iv,w) + h{u,v). 

Remark. Lemma 2.1 shows that to make the head reduction of a{u) (resp. of {u)W) it is equivalent - 
same result, and same number of steps - to make some steps in the head reduction of u, and after make 
the head reduction of a{v) (resp. of {v)w). □ 

• The types will be formulas of second order predicate logic over a given language. The logical 

connectives are ± (for absurd), and V. There are individual (or first order) variables denoted 
by X, y, z, and predicate (or second order) variables denoted by X, Y, Z, .... 
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• We do not suppose that the language has a special constant for equality. Instead, we define the 
formula u = v (where u, v are terms) to be VY(F(w) Y{v)) where F is a unary predicate variable. 
Such a formula will be called an equation. We denote by a w 6, if a = 6 is a consequence of a set 
of equations. 

• The formula Fi {F2 (... (F„ G)...)) is also denoted by Fi,F2,...,F„ G. For every 
formula A, we denote by the formula A — »-_L. If v = Vi, is a sequence of variables, we 
denote by VvA the formula Vwi...Vw„A. 

• Let t be a A-term, A a type, T = xi : Ai, a;„ : A„ a context, and E a set of equations. We define 
by means of the following rules the notion "t is of type A in F with respect to E" ; this notion is 
denoted by F \-af2 t : A : 

(1) F hAF2 Xi-. Ail<i<n. 

(2) liT,x:A \-AF2 t : B, then F ^af2 Xxt : A ^ B. 

(3) If r ^AF2 u : A ^ B, and F \-af2 v : A, then F ^af2 {u)v : B. 

(4) If F \-AF2 t : A, and x is not free in F, then F \-af2 t : ^xA. 

(5) If F \-AF2 t : yxA, then, for every term u, F \-af2 t : A[u/x]. 

(6) If F \-AF2 t : A, and X is not free in F, then F \-af2 t : yXA. 

(7) If F \-AF2 t : yXA, then, for every formulas G, F ^af2 t : A[G/X]. 

(8) If F \-AF2 t : A[u/x], and ukv, then F \-af2 t : ^[?;/a;]. 

This typed A-calculus system is called AF2 (for Arithmetique Fonctionnelle du second ordre). 

Theorem 2.1 (see [2]) The AF2 type system has the following properties : 

1 ) Type is preserved during reduction. 

2) Typable X-terms are strongly normalizable. 

We present now a syntaxical property of system AF2 that we will use afterwards. 

Theorem 2.2 (see [8]) If in the typing we go from, F ^af2 t : A to T \-af2 t : B, then we may assume 
that we begin by the -elimination rules, then by the equationnal rule, and finally by the \/ -introduction 
rules. 

• We define on the set of types the two binary relations < and « as the least reflexive and transitive 
binary relations such that : 

- WxA <] j4['u/x], if m is a term of language ; 

- "iXA < A[F/X], if is a formula of language ; 

- Afv B ii and only if ^ = C[u/x], B = C[v/x], and u v. 
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3 Pure and typed AC-calculus 

3.1 The C2 type system 

We present in this section the J-L. Krivine's classical type system. 

• We add a constant C to the pure A-calculus and we denote by AC the set of new terms also called 
AC-terms. We consider the following rules of reduction, called rules of head C-reduction. 

1) {\xu)tti...tn {u[t/x\)ti...tn for cvcry u, i, ti, i„ G AC. 

2) {C)tti...tn {t)Xx{x)ti...tn for every t,ti, ...,tn G AC, x being a A-variable not appearing 
in ti, tn- 

• For any AC-terms t, t', we shall write t >-c t' if t' is obtained from t by applying these rules finitely 
many times. We say that t' is obtained from t by head C-reduction. 

• A AC-term t is said /3-normal if and only if t does not contain a /3-redex. 

• A AC-term t is said C-solvable if and only if t {f)ti, ■■■,tn where / is a variable. 
It is easy to prove that : if t >c t' i then, for any substitution cr, a{t) >-c cr{t'). 

• We add to the AF2 type system the new following rule : 

(0) r h C : VX{^-.X ^ X} 

This rule axiomatizcs the classical logic over the intuitionistic logic. We call C2 the new type 
system, and we write T ^C2 t : ^ if f is of type A in the context T. 

It is clear that T\-c2t:Aii and only if T, C : VX{-.^X ^ X] ^af2 t : A. 

Theorem 3.1 (see [6]) 

1) IfV\-c2t: A, and t t\ then T hc2 f ■ A. 

2) IfT\-c2 t :±, and t t' , then T hc2 t' :±. 

3) If A is an atomic type, and T \-c2 t : A, then t is C-solvable. 

3.2 The M2 type system 

In this section, we present the system M2. This system allows essentialy to distinguish between classical 
proofs and intuitionistic proofs 

We assume that for every integer n, there is a countable set of special n-ary second order variables de- 
noted by Xc, Yc, Zq and called classical variables. 

Let X be an n-ary predicate variable or predicate symbol. A type A is said to be ending with X if and 
only if A is obtained by the following rules : 

- ends with X\ 
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- li B ends with X, then A ^ B ends with X for every type A ; 
-If A ends with X, then VuA ends with X for every variable v. 

A type A is said to be a classical type if and only if A ends with _L or a classical variable. 
We add to the AF2 type system the new following rules : 

(0') r h c : yxci^^Xc ^ Xc} 

(6') If r \- t : A, and Xc has no free occurence in T, then F h t : yXcA. 
(7') If r h i : \/XcA, and G is a classical type, then T \- t : A[G/Xc]. 
We call M2 the new type system, and we write T \-m2 t : A if f is of type A in the context T. 

We extend the definition of < by : VXcA < A[G/Xc] if G is a classical type. 
Lemma 3.1 If A is a classical type and A< B (or Ak. B), then B is a classical type. 
Proof Easy. □ 

3.3 The logical properties of M2 

We denote by LAF2, LC2, and LM2 the underlying logic systems of respectively AF2, C2, and M2 
type systems. 

With each classical variable Xc, we associate a special variable X* of AF2 having the same arity as Xc- 
For each formula A of LM2, we define the formula A* of LAF2 in the following way : 

-If A = D{ti, tn) where £> is a predicate symbol or a predicate variable, then A*=A ; 

-IfA = Xciti, tn), then A*= -^X*{ti, tn) ; 

-If A = B ^ C, then A*= B*^ C* ; 

-lfA = \JxB, then A*=-ixB*. 

-lfA = yXB, then A*=yXB*. 

-IfA = yXcB, then A*=yX*B*. 

A* is called the Godel translation of A. 

Lemma 3.2 If G is a classical type of LM2, then \-laf2 ^^G*< — *■ G*. 

Proof It is easy to prove that \-laf2 G*— > -i-iG*. 
We prove \-laf2 -^^G*^ G* by induction on G. 

- If G =_L, then G*=_L, and \-laf2 ((-L^-L) ^-L) ^-L- 
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-liG^Xc{ti,...,tn), then G*=^X*{ti,...,tr^), and hLAF2 — .., t„) ^ t„). 

- If G = A ^ i3, then i? is a classical type and G* = A* B*. By the induction hypothesis, 
we have \-laf2 -^^B*^ B*. Since \-laf2 -^-'{A*^ B*) (-i-iA*^ -^-^B*), we check easily that 
^LAF2 --(^* ^ B*) ^ (A* ^ B*). 

- If G = Vt;G' where = a:; or = X, then G' is a classical type and G*=VvG'*. By the induction 
hypothesis, we have \-laf2 -^^G'*^ G'*. Since \-laf2 -i-'Vt;G'* — > Vw-i-iG'*, we check easily that 

^LAF2 --VwG'* ^ VwG'*. 

- If G = MXcG' , then G' is a classical type and G*=VX*G'*. By the induction hypothesis, we 
have \-LAF2 -'-■G'*^ G'*. Since hi,Air2 -^-MX*G'* VX*^-.G'*, we check easily that \-laf2 
-,^VX*G'* ^ VX*G'*. □ 

Lemma 3.3 -Let A, G he formulas of LM2, t a term, x a first order variable, and X a second order 

variable. We have : 

1) {A[t/x])*^ A*[t/x]. 

2) {A[G/X])*^ A*[G*/X]. 

Proof By induction on A. □ 

Lemma 3.4 Let A be a formula of LM2, G a classical type, and Xc a classical variable. 
^LAF2 {A[G/Xc])*^ A\-.G*/Xc]. 

Proof By induction on A. 

- li A = D{ti, ...,tn) where £> is a predicate variable or a predicate symbol, then A*=A, and 

^LAF2 A< ^A. 

-If A = Xc{ti, ...,tn), then A*=^X*{ti, ...,tn), and, by Lemma 3.2, \-laf2 -^^G*< — *■ G*. 

- If A = B ^ G, then A* = B* ^ C*. By the induction hypothesis, we have \-laf2 {B[G/Xc])*< — ^ 
B*hG*/Xc] &ndhLAF2 {C\GIXc])*^ G*hGVXc]. Therefore h^^^a {{B[G/Xc])*^ {B[G/Xc]Y} 
{B*hG*/Xc] ^ G*hGVXc]}. 

- li A = VuA', where v = x ot v = X , then A*='ivA'* . By the induction hypothesis, wc have 
^LAF2 {A'[G/Xc]Y^ A'*[-.G*/Xc\. Therefore hiAF2 {^vA'iG/ Xc]T^yvA'*[-.G* / Xc\. 

-li A = VFc^', then A*=VFM'*. By the induction hypothesis, we have '^laf2 {A'[G/Xc])* 
^A'*[-.G*/Xc]. Therefore hiAF2 (VFc^'lG/^c])*^ (VFc^')*hG7^c]- □ 

Theorem 3.2 7/Ai,..., A„ I-lm2 A then Ai*,...,An* ^laf2 A*. 

Proof By induction on the proof of A and using Lemmas 3.2, 3.3, and 3.4. □ 

Corollary 3.1 Let A, Ai, An be formulas of LAF2. 
Ai,...,An \-LM2 A if and only ifAi,...,An \-laf2 A. 

Proof We use Theorem 3.2. □ 

With each predicate variable X of G2. wc associate a classical variable Xc having the same arity as X. 
For each formula A of LG2, we define the formula A'-'' of M2 in the following way : 
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- li A = D{ti, ...jtn) where D is a constant symbol, then A'~^ - 


= A ; 


-If A = X{ti, ...,tn) where X is a predicate symbol, then A'-'' 


= Xcih, ...,tn) 


-liA = B^C, then A'^ = B'^ ^ ; 




-lfA = \/xB, then A'=' = VxB<^ ; 




- If A = VXB, then A^ = MXcB^^ . 




1 called the classical translation of A. 





Theorem 3.3 Let A-i,...,An,A be formulas of LC2. 
Ai, ...,An \-LC2 A if and only if A^ , ...,A^ \-lm2 A'^ . 

Proof By induction on the proof of A. □ 

4 Properties of M2 type system 

By corollary 3.1, we have that a formula is provable in system LAF2 if and only if it is provable in system 
LC2. This resultat is not longer valid if we decorate the demonstrations by terms. We will give some 
conditions on the formulas in order to obtain such a result. 

We define two sets of types of AF2 type system : (set of V-positive types), and fl~ (set of V-negative 
types) in the following way : 

- If j4 is an atomic type, then A e 0+, and A e ; 

- If T G 0+, and T' e fi", then, T' G fl+, and T ^ T' e O" ; 

- If T e f]+, then VsT e fl+ ; 

- If T G f^-, then V.xT G fl' ; 

- If T G n+, then VXT G n+ ; 

- If T G fl~ , and X has no free occurence in T, then yXT G 0~. 

Lemma 4.1 1) If A e 9.+ (resp. A G Q~) and Ap^ B, then S G 0+ (resp. B G 
2) If A e ft- andA<B^ C, then B eCl+ andC eQ-. 

Proof Easy. □ 

Theorem 4.1 Let Ai, A„ be V-negative types, A a V-positive type of AF2 which does not end with _L, 
Bi, ...,-Brn, classical types, and t a (3-normal XC-term. 

IfV = xi : Ai, ...,Xn : An,yi : Bi, ...,ym ■ Bm I-m2 t : A, then t is a normal X-term, and 

An \-AF2 t : A. 

Proof We argue by induction on t. 

- If Hs a variable, we have two cases : 
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- If t — Xi 1 < i < n, this is clear. 

- If t = Uj 1 < j < m, then A = \tvB where Bj <\ Bj and B'j w B. Therefore, by Lemma 3.1, 
A is a classical type. A contradiction. 

-lft = Xxu, then T,x : E \-m2 u : F, and A = \/v{E' F') where E k E' , F k, F' and v does not 
appear in V. First, by Lemma 4.1, E € 0~ and F e 0+, and then, by the induction hypothesis, u 
is a normal A-term, and x\ : A\,...,Xn ■ An,x : E \-af2 u : F. Therefore f is a normal A-term, and 
Xx . Ai , . . . , Xiri . A^ 

\-AF2 t : A. 

-li t = {x)ui...Ur r > 1, we have two cases : 

-lft = Xil<i<n, then A,<lBi^ Ci, C^' < B^+i d+i 1 < i < r - 1, < D, A = VvD', 
where C['^ Cil <i <r, D' k. D, and F I-m2 Ui : Bi 1 < i < r. Since is a V-negative types, 
we prove (by induction and using Lemma 4.1) that for all 1 < i < r is a V-positive types. By 
the induction hypothesis we have Uj is a normal A-term, and Xi : Ai, ...,Xn ■ An \-af2 Ui : Bi. 
Therefore Ms a normal A-term, and x\ : Ai, ...,Xn : An \-af2 t : A. 

- If i % 1 < j < TO, then Bj O Bi -> Ci, < B^+i C^+l 1 < i < r -1, <D, A ^vD', 
where C[ k, Ci 1 < i < r, D' D, and F \-m2 Ui : Bi 1 < i < r. Therefore, by Lemma 3.1, A 
is a classical type. A contradiction. 

- If t = {C)uui...Ur r >Q, then there is a classical type E such that F \-m2 u : -i-iE", E <\ Bi ^ Ci, 
C[ < ^ a+i 1 < i < r - 1, C; < D, A = yvD', where C[ ^ Ci I < i < r, D' D, and 
F I-M2 Ui : Bi 1 < i <r. Therefore, by Lemma 3.1, ^ is a classical type. A contradiction. □ 

Corollary 4.1 Let A be a W-positive type of AF2 and t a /3-normal XC-term. 
If l~M2 t : A, then t is a normal X-term, and \-af2 t : A. 

Proof We use Theorem 4.1. □ 

As for relation betwen the systems C2 and M2, we have the following result. 

Theorem 4.2 Let Ai, ...,An,A be types ofC2, and t a XC-term. 
Ai, ...,An \-c2 t: A if and only if Af , ...,A^ \-m2 t : A'-^ . 

Proof By induction on the typing of t. □ 

5 The integers 

• Each data type can be defined by a second order formula. For example, the type of integers is the 

formula : N[x] = yX{X{0),\/y{X{y) X{sy)) X{x)} where X is a unary predicate variable, 
is a constant symbol for zero, and ,s is a unary function symbol for successor. The formula N[x] 
means semantically that x is an integer if and only if x belongs to each set X containing and 
closed under the successor function s. 
The A-term = XxXfx is of type A''[0] and represents zero. 

The A-term s = XnXxXf{f){{n)x)f is of type '\/y{N[y] N[s{y)]) and represents the successor 
function. 
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• A set of equations E is said to be adequate with the type of integers if and only if : 

- s{a) 56 ; 

- If s{a) » s{b) , then so is a « b. 

In the rest of the paper, we assume that aU sets of equations are adequate with the type of integers. 

• For each integer n, we define the Church integer n by n = XxXf{f)"x. 

5.1 The integers in AF2 

The system AF2 has the property of the unicity of integers representation. 
Theorem 5.1 (see [2]) Let n be an integer. If\-AF2 t : -/V[s"(0)], then t ~/3 n. 
The propositional trace N = yX{X, (X ^ X) — > X} of N[x] also defines the integers. 
Theorem 5.2 (see [2]) If\-AF2 t : N, then, for a certain n, t ~^ n. 

Remark A very important property of data type is the following (we express it for the type of integers) 
: in order to get a program for a function f : N ^ N it is sufficient to prove h yx{N[x] N[f{x)]). For 
example a proof of h yx{N[x] N\p{x)]) from the equations p(0) = 0, p{s{x)) = x gives a A-term for 
the predecessor in Church intergers (see [2]). □ 

5.2 The integers in C2 

The situation in system C2 is more complex. In fact, in this system the property of unicity of integers 
representation is lost and we have only one operational characterization of these integers. 

Let n be an integer. A classical integer of value n is a closed AC-term 9n such that \-c2 On '■ A/'[s"(0)]. 

Theorem 5.3 (see [6J and [12]) Let n be an integer, and On a classical integer of value n. 

- if n = 0, then, for every distinct variables x,g,y : {On)xgy {x)y ; 

- if n ^ 0, then there is m > 1 and a mapping I : {0, ...,m} — > N, such that for every distinct 
variables x,g,xo,xi, ...,Xm 

{On)xgXo yc {g)tlXro i 

{ti)xi yc {g)ti+iXri l<i<m ; 

where /(O) = n, I{rm) = 0, and I{i + 1) = /(r^) -10<i<m-l. 
We will generalize this result. 

Let O be a particular unary predicate symbol. The typed system C2o is the typed system C2 where we 
replace the rules (2) and (7) by : 
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{2o) If r,x : A hc2o t : B, A and B arc not ending with O, then F \-c2o ^^t : A ^ B. 

(7o) If r hc2o t : VX^, and G is not ending with O, then T hc2o * : A[G/X]. 

We define on the types of C2o a binary relation <o as the least reflexive and transitive binary relation 
such that : 

yxA <\o A[u/x] if u is a. term of language ; 

yXA <o M^/-^] if G is a type which is not ending with O. 

Lemma 5.1 a) IfT \-c2o t o.nd t >c t' > then T Vqio t' :-L- 
b)IfT \-c2o t '■ 0'''T'd A is an atomic type, then t is C -solvable. 

Proof a) It is enough to do the proof for one step of reduction. We have two cases : 

- If t = {Xxu)vvi...Vm, then t' = {u[v/x])vi...Vjm T,x : F \~c2o u '■ G, F and G are not ending 
with O, G' <o Fi Gi, G'^ <o Fj+i Gj+i 1 < j < m - 1, Gm ~-L, Gj « 1 < j < m - 1, 
r l~C2o ^ • F, and F \-c2o '■ Fj 1 < J < m. It is easy to check that F \-c2o u[v/x] : G, then 
r \-C2o t' :±. 

-lft= (G)?;?;i...Um, then = (i!)Aa;(x)?;i. and there is a type ^ which is not ending with O such 
that : A' <o Fi Gi, G'j <o Fj+i Gj+i 1 < j < m - 1, G„ «±, A » A', Gj - G'j 1 < j < m, 
r l~C2o V : -1-1^, and F \-C2o Vj ■ Fj 1 < j < m. It is easy to check that r,x : A \-C2o {x)vi...Vm :-L, 
but A is not ending with O, then F \-C2o Xx{x)vi...Vm '■ "'A, and F \-c2o t' 

b) Indeed, a typing of G2o may be seen as a typing of G2. □ 
Lemma 5.2 a) IfT \-c2o t '■ 0{a), and t yc t' , then t = t'. 

h)IfT = yi : Ai,...,yn : An,xi : 0{ai), ...,Xm ■ 0{am) ^C2o t '■ 0{a), and all Ai 1 < i < n are not 
ending with O, then t is one of Xi, and aj ~ a 1 < i < n. 

Proof a) It is enough to do the proof for one step of reduction. We have two cases : 

-lft= {Xxu)vvi...Vm, then t' = {u[v/x])vi...Vm, T,x : F \-c2o u : G, F and G are not ending with 
O, G' <o Fi ^ Gi, G'j <o Fj+i ^ Gj+i 1 < j < m - 1, G„ « 0{a), Gj « G^. 1 < j < m - 1, 
r l~C2o ^ • F, and F \-c2o '■ Fj 1 < j < m. Therefore Gj 1 < j < m is not ending with O, which 
is impossible since Gm ~ 0{a). 

- If t = {C)vvi...Vm, then t' = {v)Xx{x)vi...Vm, and there is a type A which is not ending with O 

such that : A' <o -Fi ^ Gi, G^ Oo Fj+i Gj+i I < j < m - 1, Gm ~ 0{a), A « A', G^ « G'j 
1 < j < m, r h(72o V : -i^j4, and F ^c2o Vj : Fj 1 < j < m. A is not ending with O, therefore Gj 
1 < j < m is not ending with O, which is impossible since Gm ~ 0{a). 

b) By Lemma 5.1, we have t {f)ti---tr, and, by a), t = {f)ti...tr. Therefore F \-C2o {f)ti---ir '■ 0{a). 

-If f = Xi 1 <i <m, then r = 0, t = Xi, and 0{ai) w 0{a), then w a. 

-If f = yj 1 < j < k, then Aj <o Fi ^ Gi, G'^ <o -Ffe+i ^ Gfe+i 1 < fc < r - 1, G^ « 0(a), 

Gfe « GJ. 1 < fc < r, and F hc2o tk ■ Fk 1 < k < r. Since is not ending with O, then Gfe 
1 < fc < r is not ending with O, which is impossible since Gr « 0{a). □ 
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Let V be the set of variables of AC-calculus. 

Let P be an infinite set of constants called stack constants ^. 

We define a set of AC-terms ACP by : 

- If X G y, then X e ACP ; 

- If t G ACP, and x eV, then Xxt G ACP ; 

- If t G ACP, and u G ACP IJ P, then {t)u G ACP. 

In other words, t G ACP if and only if the stack constants are in argument positions in t. 

Let (7 be a function defined on.V\JP such that : 

- If a; G y, then a{x) G ACP ; 

- If p G P, then a{p) = t = ti,...,t„, n > 0, G ACPIJ-P l<i<n. 
We define a{t) for all t G ACP by : 

- (7{{u)v) = {a{u))a{v) iiv ^ P ; 

- a{Xxu) = Xxa{u) ; 

- a{{t)p) = {t)t if a{p) = t. 
a is said to be a P-substitution. 

We consider, on the set ACP, the following rules of reduction : 

1) {Xxu)Ui...tn ->■ {u[t/x])ti...t„ for all u,t G ACP and ti, ...,tn G ACPlJ-P ; 

2) {C)tti...tn {t)Xx{x)ti...tn for all t G ACP and ti,...,tn G ACPlJP, and x being A-variable 
not appearing in ti, ...,tn- 

For any t, t' G ACP, we shall write t l>c t' , if t' is obtained from t by applying these rules finitely many 
times. 

Lemma 5.3 If t \>c t', then a{t) >c (^{t') for all P -substitution a. 
Proof Easy. □ 

Lemma 5.4 Let t G ACP such that the stack constants oft are among pi, ...,Pm- 
Ift yc t', and r = T',pi : 0{ai), ...,Pm ■ 0{am) ^cio t --L, then t' G ACP and t >c t'. 

Proof It is enough to do the proof for one step of reduction. We have two cases : 

- If t = {Xxu)vvi...Vm, then, t' ~ {u[v/x])vi...Vm, T,x : F \-c2o u : G, F and G is not ending with 
O, and r \-c2o '■ F. Therefore u,v e ACP, and so t' G ACP and t \>c t' . 

^The notion of stack constants taken from a manuscript of J-L. Krivine 
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- If t = {C)vvi...Vm, then, t' = {v)Xx{x)vi...Vm, and there is a type A which is not ending with O 
such that r \-c2o v : -^^A. Therefore v e ACP, and so t' G ACP and t >c t' . □ 

Theorem 5.4 Lei n 6e an integer, On a classical integer of value n, and x, g two distinct variables. 

- Ifn = 0, then for every stack constant p, we have : {6n)xgp yc {x)p- 

- If n ^ 0, then there is m> 1, and a mapping I : {0, m} N, such that for all distinct stack 
constants po,Pi, ■■■,Pm, we have : 

{6n)xgpo yc {9)tiPro ; 

{ti)Pi yc {g)ti+iPri l<i<m-l ; 

{tm)Pm yC {x)Prm 

where 7(0) = n, I{rm) = 0, and I{i + 1) = I{ri) — 1 0<i<m — 1. 
Proof We denote, in this proof, the term s*(0) by i. 

If \-C2 en : N[n], then hc2o On : [0(0) Vy{[0(y) ^ [Oisy) ^±]},0(n) then Ti = x : 

0(0) ^±,g : Vj/{[0(y) ^_L] [0{sy) -^±]},po : 0(n) \-c2o {On)xgpo :-L, therefore, by Lemma 5.1, 
{6n)xgpo is O-solvable, and three cases may be seen : 

- If {dn)xgpo yc {po)ti---tr, then r = 0, and there is a term a, such that 0(a) ~_L. This is 
impossible. 

- If {On)xgpo yc {x)ti...tr, then r = 1, and Fi \-c2o *i • ^(0)- Therefore, by Lemma 5.2, ti = po, 
and so n = 0. 

- If {6n)xgpo yc {g)ti...tr, then r = 2, Ti \-c2o *i : 0{a) ->_L, Ti \-c2o *2 : 0{s{a')), and a w a'. 
By Lemma 5.2, we have t2 = Po, and s(a') » n, then a w n — 1. Therefore {On)xgpo yc {9)tiPo, 
and Li l-c2o : 0{n - 1) ^_L. Let /(O) = n. 

We prove that : if = g : Vy{[0(y) ^ [0(sy) ^±]},ar : 0(0) ^±,po : 0(7(0)), : 

0(7(^)) hc2o (^^)P^ then : 

{ti)pi yc {9)ti+iPri, and Tj l-c2o : 0{I{ri) - 1) 
or 

{U)Pi yc {x)Pri, and 7(ri) = 0. 

Ti l~C2o (ti)Pi ^-L, therefore, by Lemma 5.1, {ti)pi est O-solvable, and three cases may be seen : 

- If {ti)pi yc {pj)ui...Ur < j < i, then r = 0, and there is a term a, such that 0(a) i=s_L. This is 
impossible. 

- If {ti)pi yc {x)ui...Ur, then r = 1, and Fj \-c2o • ^(0)- Therefore, by Lemma 5.2, m = p^, 
and I{ri) = 0. 

- If {ti)pi yc {g)ui...Ur, then r = 2, Fj \-c2o "i : 0{a) —>-±, Fj \-c2o "2 : 0(s(a')), and a « a'. By 
Lemma 5.2, we have U2 = Pn, and s(a') w 7(ri), then a « 7(ri) — 1. Therefore {ti)pi yc {g)ti+iPri, 
and Fi hc2o ii+i : 0(7(ri) - 1) Let 7(i + 1) = I{ri) - 1. 

This construction always terminates. Indeed, if not, the AO-term {{{On)Xxx)Xxx)po is not O-solvable. 
This is impossible, since po :1.\-C2 {{{On)Xxx)Xxx)po :-L. □ 
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Corollary 5.1 Let n be an integer, On a classical integer of value n, and x,g two distinct variables. 

- Ifn = 0, then, for every stack constant p, we have : {9n)xgp\>c {x)p. 

- If n ^ 0, then there is m > 1, and a mapping I : {0, m} N, such that for all distinct stack 
constants po,pi, ...,Pm, we have : 

{On)xgpo >C {9)tlPro / 

{ti)Pi >c {gJti+iPn 1 < i < m - 1 ; 

{tm)Pm >C {x)Pr^ 

where /(O) = n, /(r^) = 0, and I{i + 1) = I{ri) — 10<i<m — 1. 
Proof We use Lemma 5.4. □ 

Corollary 5.2 Let n be an integer, and On o- classical integer of value n. 

- Ifn = 0, then, for every AC — terms a, F,u, we have : {6n)aFu yc {a)u. 

- If n ^ 0, then there is m > 1, and a mapping I : {0, ...,m} N, such that for all AC — terms 
a, F,uo, Ml, Um, we have : 

{On)aFu^ {a)hu^ ; 

{ti)ul {g)U+i~i 1 < i < m - 1 ; 

{tm)u;^ >-c 

where /(O) = n, /(r^) = 0, and I{i + 1) = I{ri) — 1 0<i<m — 1. 
Proof We use Lemma 5.3. □ 

5.3 The integers in M2 

According to the results of section 4, we can obtain some results concerning the integers in the system 
M2. 

Theorem 5.5 Let n be an integer. If\-M2 t : -/V[s"(0)], then, t c^^^ n. 
Proof We use Theorem 4.1. □ 

Let n be an integer. By Theorem 4.2, a classical integer of value n is a closed AC-term On such that 
Km2 On : N^[s^m. 

Theorem 5.6 Let n be an integer. On a classical integer of value n, and x,g two distinct variables. 

- Ifn = 0, then, for every stack constant p, we have : {On)xgp \>c {x)p. 

- If n ^ 0, then there is m > 1, and a mapping I : {0, ...,m} — > N, such that for all distinct stack 
constants po,pi, ...,Pm, we have : 

{On)xgpo >C {g)tlPro / 
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{ti)Pi Oc {s)ti+iPri 1 <i <m-l ; 
{tm)p rn 

where /(O) = n, I{rm) = 0, and I{i + 1) = lirt) — 1 0<i<m — 1. 
Proof We use Theorem 4.2. □ 

6 Storage operators 

6.1 Storage operators for Church integers 

Let T be a closed A-term. Wc say that T is a storage operator for Church integers if and only if for every 
n > 0, there is a A-term r„ n, such that for every A-term 0„ ~^ n, there is a substitution a, such that 

{T)0nf >- ifMTn). 

Examples If we take : 

Ti = Xn{{n)S)G where G = XxXy{x)Xz{y){s)z and S = A/(/)0 
T2 = XnXf{{{n)f)F)0 where F = XxXy{x){s)y, 

then it is easy to check that : for every On —(3 R, {Ti)Onf >- (/)(s)"0 (i = 1 or 2) (see [3] and [8]). 
Therefore Ti and T2 are storage operators for Church integers. □ 

It is a remarkable fact that we can give simple types to storage operators for Church integers. Wc first 
define the simple Godel translation F* of a formula F : it is obtained by replacing in the formula F, 
each atomic formula A by -^A. For example : 

N*[x] = yX{^X{0),yy{^X{y) ^ ^X{sy)) ^ ^X{x)} 

It is well known that, if F is provable in classical logic, then F* is provable in intuitionistic logic. 

We can check that \-af2 Ti,T2 : Wx{N*[x] — > ^^N[x]}. And, in general, we have the following Theorem 

Theorem 6.1 (see [3] and [10]) IfhAF2 T : \/x{N*[x] -^-'Nlx]}, then T is a storage operator for 
Church integers. 

6.2 Storage operators for classical integers 

The storage operators play an important role in classical type systems. Indeed, they can be used to find 
the value of a classical integer. 

Theorem 6.2 (see [6] and [7]) If\-AF2 T : \lx{N*[x\ ^^N[x\}, then for every n > 0, there is a 
X-term Tn —/} n, such that for every classical integer On of value n, there is a substitution a, such that 

{T)Onf yc (/Mt„). 

Corollary 6.1 If\-AF2 T : Wx{N*[x] ^^N[x]}, then for every n > and for every classical integer 
On of value n, there is a X-term Tn, such that {T)OnXxx yc Tn — »/3 n. 
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Proof We use Theorem 6.2. □ 



Remark. Theorem 6.2 cannot be generahzed for the system C2. Indeed, let T = XvXf {f){C){Ti)u 
(i = 1 or 2). 

u : N*[x\, f : ^N[x] hc2 : ^^N[x] =^ 

V ■ N*{x\J: -.N{x\ Vci (C){TOv : N{x\ =^ 

V ■ 7V*N,/ : -iVN ^C2 (/)(C)(T,)z/ 
hc2 T : Va;{7V*[a;] ^ ^-^N\xW 

Since for every AC-term 0, {T)9f >-c {f){C){Ti)9, then it is easy to check that there is not a AC- 
term Tn —p n such that for every classical integer ^„ of value n, there is a substitution <j, such that 

{T)enf yc ifMTn). □ 

We will see that in system M2 we have a similar result to Theorem 6.2. 

Let T be a closed AC-term. We say that T is a storage operator for classical integers if and only if for 
every n > 0, there is a AC-term t„ n, such that for every classical integers 9n of value n, there is a 
substitution a, such that {T)9nf {f)<^{Tn)- 

Theorem 6.3 If\-M2 T : yx{N'~^[x] — > -^-^Nlx]}, then T is a storage operator for classical integers. 

The type system M is the subsystem of M2 where wc only have propositional variables and constants 
(predicate variables or predicate symbols of arity 0). So, first order variable, function symbols, and finite 
sets of equations are useless. The rules for typed are 0') 1), 2), 3), 6), 6'), 7) and 7') restricted to propo- 
sitional variables. With each predicate variable (resp. predicate symbol) X, we associate a predicate 
variable (resp. a predicate symbol) of M type system. For each formula A of M2, wc define the 
formula A"^ of Fc obtained by forgetting in A the first order part. If F = xi : Ai, ...,Xn : is a context 
of M2, then we denote by F* the context xi : A^, Xn ■ A^ of M. We write F \-m t : A'lit ]s typable 
in M of type A in the context F. 

We have obviously the following property : if F \-m2 t : A, then F* Km t : A'^ . 
Theorem 6.3 is a consequence of the following Theorem. 

Theorem 6.4 T : N'^ -^^N , then for every n > 0, there is anm>0 and a XC-term Tm —p m, 

such that for every classical integer 9n of value n, there is a substitution a , such that {T)6nf {f)(^ijm)- 

Indeed, if \-mi T : Va;{iV'^[a;] ->■ -^^N[x]}, then \-m T : N'^ ->■ -.-.iV. Therefore for every n > 0, there is 

an m > and Tm —p EL, such that for every classical integer 9n of value n, there is a substitution a, such 
that {T)9nf >-c (./)o-(t™). Wc have \-m2 n : 7V<^[s"(0)], then / : ^iV[s"(0)] hM2 {T)nf :_L, therefore 
/ : -i-/V[s"(0)] \-m2 {f)lR :-L and \~m2 IR : A^[s"(0)]. Therefore n = m. and T is a storage operator for 
classical integers. □ 

In order to prove Theorem 6.4, we shall need some Lemmas. 
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Lemma 6.1 IfT,v : N^' \-m {v)d :-L, then d = a,b,di, ...,dr and there is a elassical type F, such that : 
T,v: N'^ \-M a:F ;T,v: N'^ \-Mh:F ^ F ; F <\Ei^ Fi, F,< E,+i F,+i 1 < i < r - 1 ; Fr< ± ; 
and T,!/ : N*^ \-M Ci : Ei l<i<r. 

Proof We use Theorem 2.2. □ 

Lemma 6.2 If F is a classical type and T,x : F \-m {x)d :_L, then d = di, ...,dr ; F <] Ei Fi ; 
Fi <\ Ei+i —>■ Fj+i 1 < i < r — 1 ; Fr< -L ; and T,x : F \-m Ci : Ei 1 <i <r. 

Proof We use Theorem 2.2. □ 

Lemma 6.3 Let t be a (3-normal XC-term, and Ai, A„ a sequence of classical types. 
If xi : Ai, ...,Xn ■ An \-M t : N, then there is an m>0 such that t = m. 

Proof We use Theorems 4.1 and 5.2. □ 
Let u and / be two fixed variables. 

We denote by Xn,a,b,c (where n is an integer, a, b two A-terms, and c a finite sequence of A-terms) a 
variable which does not appear in a,b,c. 

Theorem 6.5 Let n be an integer. There is an integer m and a finite sequence of head reductions 

{Ui )~c ^}i<i<r such that : 

1) Ui = {T)vf and Vr = if)Tm where Tm —p m ; 

2) = {v)abc or Vi = {xi^a,b,c)d 0<l <n-l; 

3) IfVi = (y)abc, then Ui+i = {a)c ifn = and Ui+i = {{b)xn-i^a,b,c)c ifn^Q; 

4) IfVi = {xi^a,b,c)d <l <n-l, then Ui+i = {a)d if 1 = and Ui+i = „ („d)^ ifl¥=0. 

Proof A good context T is a context of the form u : N'^ , f : -'N,Xm,ai,bi,cT '■ Fi, —,Xnp,ap,bp,c^ ■ Fp 
where is a classical type, < < n — 1, and 1 < i < p . 

We will prove that there is an integer m and a finite sequence of head reductions {Ui >c ^i}i<i<r such 
that we have 1), 2), 3), 4), and there is a good context T such that F Km Vi 1 <i <r. 

We have \-m T : N'^ ^ -.-.TV, then v : N'^ , f : Km :_L, and by Lemmas 6.1 and 6.2, 

{T)pf >c Vi where Vi = (/)r or Vi = {ij)ahc. 

Assume that we have the head reduction Uk Vk and Vk 7^ 

- If Vfe = {iy)abc, then, by the induction hypothesis, there is a good context T such that F f-M 
{v)abc :_L. By Lemma 6.1, there is a classical type F, such that F Km a : F ; F Km b : F F ; 
c = Ci, Cs ; F < Fi — !■ Fi ; Fi <] F^+i F^+i 1 < i < s — 1 ; Fs<\ -L ; and F Km : Fj 1 < i < s. 

- If n = 0, let Uk+i = (a)c. We have F Km Uk+i --L. 

- If n ^ 0, let Uk+i = {{b)xn-i,a,b,c)c- The variable Xn-i,a,b,c is not used before. Indeed, if 
it is, we check easily that the AC-term {T)nf is not solvable; but that is impossible because 
/ : -^N \-M {T)nf :-L. Therefore F' = F, Xn-i,a,b,c : F is a good context and F' Km Uk+i :-L. 

- If Vfe = {xi^a,b,c)d, then, by the induction hypothesis, there is a good context F such that F Km 
{xi,a,b,c)d :-L. Then there is a classical type F such that xi^a,b,c : F is in the context F. By Lemma 
6.2, c = di, ds ; F < El ^ Fi ; Fi < Fj+i Fi+i 1 < i < s - 1 ; Fs< _L ; and F Km Cj : Ei 
l<i<s. 
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- If ; = 0, let Uk+1 = {a)c. Wc have T Km Uk+i 

- If i ^ 0, Let J7fe+i = a f, The variable a^;_^^jj^ is not used before. Indeed, 
if it is, we check that the AC-term {T)nf is not solvable; but this is impossible because 
f :^N\-M {T)nf :±. Then T' = T,Xi_^ ^ : F is a good context and T' Km Uk+i :±. 

Therefore there is a good context V such that V \-m Uk+i --L. Then, by Lemmas 6.1 and 6.2, 

Uk+i >-c Vk+i where Vk+i = {f)T or Vk+i = {v)abc or Vk+i = {xi^a,b,c)d < Z < n - 1. 

This construction always terminates. Indeed, if not, we check that the AC-term {T)nf is not solvable; 

but this is impossible because / : \-m {T)nf :±. 

Therefore there is r > and a good context F such that F Km Vr = {f)T :_L, and F \-m t : A''. Therefore, 
by Lemma 6.3, there is an m > such that t m. □ 

Let T be a AC-term such that Km T : N'-' — > -^^N. By Theorem 6.5, there is an integer s and a finite 

sequence of head reductions [Ui >c Vi}i<,<r such that : 

1) Ui = {T)vf and Vr = {.f)Ts where Ts — /3 s; 

2) Vi = {i')abc or Vi = {xi^a,b,c)d < I < n - 1; 

3) If Vi = {i')abc, then Ui+i = (a)c if n = and f/j+i = {{b)xn-i,a,b,c)c if n 7^ ; 

4) If Vi = {xi,a,b,c)d < Z < n - 1, then Ui+i = {a)d if / = and Ui+i = „ j,^^)^ iflj^O. 

Let 9n be a classical integer of value n, and x,g two distinct variables. By Theorem 5.6 we have : 
If n = 0, then for every stack constant p, we have : {0n)xgp l>c {x)p- 

If n 7^ 0, then there is m > 1, and a mapping 7 : {0, m} N, such that for all distinct stack constants 
Po,Pi,-,Pm, we have : 

{On)xgpo l>c {9)tiPro ; 

{U)Pi >c {g)ti+iPri 1 < i < m - 1 ; 

{tm)Pm >C {x)pr^ 

where 7(0) = n, I{rm) = 0, and I{i + l)= I{ri) -10<i<m-l. 
Lemma 6.4 7/n = 0, then (T)6'„/ >-c ifMOn/v]- 

Proof Wc prove by induction that for every 1 < i < r, we have {T)9nf >-c Vi[On/i^]- 
For I = 1, {T)enf = {{T)iyf}[en/u] = U^[9n/v] Vi[0„/H- 
Assume it is true for i, and prove it for i -|- 1. 

{T)enf yc VilOn/y] = {{y)abc}[en/y] = {{en)abc)[en/y] = {{en)xgp}[a/x,b/g,c/p][er,/y]. Since {Onjxgp 
{x)p, then (T)0„/ {(a)c}[0„/H = ;7,+i[0„/H >c 

So, for i = r, we have (T)e„/ Vr[en/y] = {{f)T}[0n/y] = (/)r[^„/i/]. □ 
We assume now that n > 1. 

A k — AC-term is a AC-term of the forme Vk[Ti/yi]...[Tp/yp][6n/i'] such that : 

- Fv(Vk) C {iy,f,yi,...,yp} 

- for every I < i < p, yt = Xm^aiM^ci and Ti = tmAai/x, bi/g,do/po, ■■■,dmi-i/Pmi-i] where 7(mi) = ni 

- for every < fc < mj — 1, there is 1 < Z < r such that Ui = {ai)dk if I{k) = and Ur = 
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To simplify, a fc — AC-term is denoted by Vfc [] . 

Lemma 6.5 Let 1 < i < r — 1 and Vi[] an i — XC-term. If {T)Onf >-c ViW; then there is 1 < j < r and 
a j — XC-term VjW such that Vj[] Vj [] and either Vi[] 7^ V, [] or i < j 

Proof There are only two possibilities. 1) Vi = {u)ahc \2) Vi = {xa,a,b,c)d. 
We now examine each of this cases. 

1) If Vi = {u)abc, then Vi[] = {(6'„)a6c}0 = {{en)xgpo}[a/x,b/g,c/po]l]. Since {6n)xgpo >c {g)tiPro = 
{g)tiPo, then Vi[] >c {{h)ti\a/x,b/ g,c/po]c}W = 

{{b)xn-i,a,b.cc}[ti[a/x,b/g,c/pa/xn_i^aAc][] = Vi+i[\. Let j = i + 1. We have i < j and 
/(l) = /(ro)-l = /(0)-l = n-l. _ 

2) If Vi = {xa,a,b,c)d, then Vi[] = {(^/^[a/a;, 6/5, do/po, c?/3-i/p/3-i])<i}[] where = a. 

If /(/?) = a ^ 0, then Ui+i = = {b)xjf^^^_^^^f^-^d, and if I{(3) =a^0, then Ui+i = {a)d. 

We consider the following two cases. 

- If /? < m, then {tp)pi3 >c {9)t0+iPr0, so that 

ViW yc {{g)t!3+iPri3}[a/x,b/g,do/po,-;d0-i/p!3-i,d/pfs]W = 

{{b)tf3+idr^}[a/x,b/g,do/po,...,di3-i/pp-i,d/pi3][]. 

Since (} ^ m, then /(r/j) ^ 0. By the hypothesis there is 1 < j < r such that Uj = {b)xj^^^^_-^ ^ ^ J^^i 
Therefore 

Vi[] yc Uj[tp+i[a/x,b/g,d^/po,...,d^i/pp-x,d/pp\/x^^^^^_^^^ f^^]\\ = Uj[] Vj[]. 

liViW — then the head C-reduction {t/})p0 >c {g)t0+iPrf, must be an identity, in other words 

{t0)P0 = {9)ti3+iPri3 and therefore f3 = r/}. And so j = i + 1 > i. 

- If /? = m, then (t/j)^/? = {tm)Pm >c {x)Pr„,, so that 

{{x)Pr^}[a/x,b/g,do/po. ■■■■ dm-l/pm-l][] = {a)tr^}[]. 

Since /(r™) = 0, then by the hypothesis there is 1 < j < r such that Uj = {a)tr^- Therefore 
Vi[] ycU,[] ^cV^]. 

If Vi[] = Vj\\, then the head C-reduction {tm)Pm >c (a^)Pr„ must be an identity, in other words 
{tm)Pm >c {x)Pr,n ^nd therefore m = rm- And so j = i + 1 > i. □ 

Corollary 6.2 There is a substitution a such that {T)6nf {f)o'{T). 

Proof (T)0„/ = {{T)iyf}[en/i^] = Uiie^/v] >-c Vi\6nlv\. By Lemma 6.5 wc obtainc a sequence ViJ] , 
[] , ... , Vi^ [] , ... such that {T)9nf >-c Vi^ [] and if Vi^ [] ^ V^^^^ [] then is < is+i- This sequence is nec- 
essarily finite, indeed / : -^N \-m iT)0nf :-L. If = = ... = Vi^_^„[], then i^ < i^+i < ... < i^+a 
and a<r. Therefore there is s such that V,, = (/)r, then (T)6»„/ = {(/)t}[] = (/)t[]. □ 

Then, by Lemma 6.4 and Corollary 6.2, T is a storage operator for classical integers. 
6.3 General Theorem 

In this subsection, we give (without proof) a generalization of Theorem 6.3. 
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Let T be a closed AC-term, and D, E two closed types of AF2 type system. We say that T is a storage 
operator for the pair of types {D, E) iff for every A-term '^af2 t ■ D, there is A-term r/ and AC-term 
Tt, such that r/ ~/3 Tt, \-af2 t[ : E, and for every \-c2 Ot : D, there is a substitution a, such that 

{T)etf yc ifMn). 

Theorem 6.6 Let D, E two ^-positive closed types of AF2 type system, such that E does not contain 
-L- If l~M2 T : — > -i-iE, then T is a storage operator for the pair {D, E). 

7 Operational characterization of AC-terms of type VXc{_L— ^ 
Xc} and \JXc{^^Xc ^ Xc} 

Let A (for Abort) the AC-term Xx{C)\yx. 
Behaviour of A : 

(A )tti...tn >-c {{C)\yt)ti...tn yc {Xyt)\x{x)ti...tn >-c t. 

Typing of A : 

X :-LI-M2 Xyx : ^^Xc x :-LI-m2 {C)\yx : Xc =>I-m2 A : VXc{-L-> Xc} 

Theorem 7.1 // \-m2 T : VXc{-L— > Xc}, then for every integer n, and for all AC — terms t, ti, tn, 
{T)tti...tn yet. 

Proof. Let Oi,...,On be new predicate symbols of arity different from _L. Let A = Oi,...,0„ ^_L. 
If I-M2 T : VXc{-L^ Xc}, then \-m2 T :_L^ A, and T = a; :_L,a;i : d, ...,a;„ : 0„ I-m2 {T)xxi...Xn :-L. 
Therefore {T)xx\...Xn yc {f)u\...Ur and F \-m2 {f)u\...Ur :-L. 

-'ii f = Xi 1 <i <n, then r = 0, and Oj =±. A contradiction. 

- If / = a;, then r = 0, and (T)a;a;i...a;„ a;, therefore, for every integer n, and for all AC-terms 

t,ti,...,tn, {T)tti...tn yet. □ 

The constant C satisfies the following relations : 

{C)tti...tn yc {t)U and 

{U)y yc {y)t\...tn where i/ is a new variable. 



Let C = Xx{C)Xd{x)Xy{x)\z{d)y. 

X : -i-iXc, y : Xc, z : Xc, d : -iXc I-m2 :-L^> 

a: : -'^^c, 2/ : Xc, d : -iXc \-m2 {x)Xz{d)y :±=^ 
X : -^^Xc,d : -^Xc \-m2 {x)Xy{x)Xz{d)y :±=» 
X : -^^Xc \-M2 {C)Xd{x)Xy{x)Xz{d)y : Xc =^ 
l~M2 C : yXc{-'-'Xc Xc}. 

The AC-term C satisfies the following relations : 

{C')tti...tn yc m, 
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{U)y >c {t)V, and 

{V)z >c {y)ti---tn where y,z are new variables. 
In general, we have the following characterization. 

Theorem 7.2 If\-M2 T : '^Xc{-'^Xc — > Xc}, then there is an integer m, such that, for every integer 
n, and for all XC -terms t,ti, ...,tn • 

{T)ttr...tr, yc it)Vi, 

{Vi)yi >-c {t)Vi+i 1 <i <m-l, and 

{Vm)ym {yi)ti...tn where yi,...,ym are new variables. 

Proof Let O be a new predicate symbol of arity different from _L. We define as in section 3, the system 
M2o- And wc check easily that this system has the same results as Lemmas 5.1, 5.2, 5.3 and 5.4. 
Let p be a stack constant and A — O -^L. If |-m2 T : \/Xc{^^Xc Xc}, then '^m2o T : — *■ A, 
and T = X : -^^A,p : O \-m2o (T)xp :_L. Therefore {T)xp )~c {f)ui...Ur, and T \-m2o if)ui.-.Ur :-L. 

- If / = p, then r = 0, and O =_L. A contradiction. 

- If / = a;, then, {T)xp >c {x)Ui, and T \-m2o Ui : -^A. 

We prove (by induction) that if T,yi : A,...,yi-i : A \-m2o Ui : -lA, then [{Ui)yi >c {x)Ui+i, and 
r,yi : A, ...,yi : A \-m2o Ui+i : -^A] or l{Ui)yi >c {yj)p 1 < j < «]• 

The sequence (J7j)j>o is not infinite. Indeed, if it is, the AC-term {{T)Xx{x)z)p is not C-solvable; but 
this is impossible, because z : A,p : O \-m2 {{T)\x{x)z)p :±. 

To obtain the Theorem, we replace the constant p by the sequence t = ti, and we put Vi = Ui\t/p]. 
□ 

8 The Ayw-calculus 

In this section, we give a similar version to Theorem 6.3 in the M. Parigot's A/U-calculus. 
8.1 Pure and typed AyU-calculus 

A/U-calculus has two distinct alphabets of variables : the set of A-variables x,y,z,..., and the set of 
/x-variables a,/?, 7,.... Terms are defined by the following grammar : 

t ■.= x \ Xxt\ {t)t I iJa[P]t 

Terms of A/i-calculus are called A/i-terms. 

The reduction relation of A/i-calculus is induced by fives different notions of reduction : 

The computation rules 

(Ci) {Xxu)v — > u[v/x\ 
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(C2) {iiau)v iiau[v/*a] 

where u\v/*a] is obtained from u by replacing inductively each subterm of the form [a]w by [a](ti;)tJ. 
The simplification rules 



{S2) i^a[a]u — > u, if a has no free occurence in u 

{S3) i^au — > XxiJ.au[x/*a], if u contains a subterm of the form [a]Xyw. 

Theorem 8.1 (see [18]) In Xii-calculus, reduction is confluent. 

The notation u v means that v is obtained from u by some head reductions. 

The head equivalence relation is denoted by : u t; if and only if there is a w, such that u w and 
V ^ij, w. 

Proofs arc written in a natural deduction system with several conclusions, presented with sequents. One 
deals with sequents such that : 

- Formulas to the left of h are labelled with A-variables ; 

- Formulas to the right of h are labelled with /x- variables, except one formula which is labelled with a 

A/^-term ; 

- Distinct formulas never have the same label. 

The right and the left parts of the sequents are considered as sets and therefore contraction of formulas 
is done implicitly. 

Let f be a A/i-tcrm, A a type, T = xi : Ai, Xn '■ An, and A = ai : Bi, .... : Bm- Wc define by means 
of the following rules the notion is of type A in F and A" . This notion is denoted by F \-fd2 t : A, A. 

The rules (1),...,(8) of AF2 type system. 

(9) If F l-irr,2 t: A,I3: B,A, then F \-fd2 M/3[a]t ■.B,a:A,A. 
Weakenings are included in the rules (2) and (9). 

As in typed A-calculus on can define ^A as and use the previous rules with the following special 
interpretation of naming for _L : for a a yu- variable, a :_L is not mentioned. 

Example Let C —XxiJ,a[(f>]{x)XyfiP[a]y. 
X : -.-■X, y : X \-fd2 y ■ X =^ 
X : -.-.X, y : X \-fd2 t^li[a\y X => 

X : -i-iX \-FD2 Xynfi[a]y : -^X, a : X => 
X : -i-iX \-FD2 tia[(j>]{x)Xyf3[a]y : X => 
hp-caC : VX{^^X ^ X}. 

Theorem 8.2 (see [18] and [20[) The FD2 type system has the following properties : 

1 ) Type is preserved during reduction. 

2) Typable Xfi-terms are strongly normalizahle. 



[a]ii[3u ^ u[a/0\ 
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8.2 Classical integers 

Let n be an integer. A classical integer of value n is a closed A/x-term ^„ such that hpDi &n '■ N[s^{0)]. 

Let X and / fixed variables, and N^j be the set of A/z-terms defined by the following grammar : 

u := X I {f)u I /iQ;[/3]a; | ^a[(3]u 

We define, for each u e N^j the set rep{u), which is intuitively the set of integers potentially repesented 
by u : 

- rep{x) = {0} 

- rep{{f)u) = {n + 1 if n G rep{u)} 

- rep{fia[P]u) = f]rep{v) for each subterm [a]v of [(3]u 

The following Theorem characterizes the normal forms of classical integers. 

Theorem 8.3 (see [19]) The normal classical integers of value n are exactly the Xfjb-terms of the form 
XxXfu with uG Nxj without free ^-variable and such that rep(u)={n}. 

8.3 General Theorem 

In order to define, in this framework, the equivalent of system M2, the demonstration of -i-iA — > A 
should not be allowed for all formulas A, and thus we should prevent the occurrence of some formulas on 
the right. Thus the following definition. 

Let t be a A/i-tcrm, A a type, T = xi : Ai, a;„ : j4„, and A = ai : _Bi, am '■ Bm where Bi 1 < i < m 
is a classical type. We define by means of the following rules the notion "t is of type ^ in F and A" , this 
notion is denoted by V \-m2 t:A,/\. 

The rules of DL2 type system. 

(6') If r h t : A, A, and Xc has no free occurence in T, then T \- t : ^XcA, A. 
(7') If r h t : VXcA, A, and G is a classical type, then Vrt: A[G/Xc], A. 

Let T be a closed A/x-term. We say that T is a storage operator for classical integers if and only if for 
every n > 0, there is A/i-term t„ ~^ n, such that for every classical integers 6n of value n, there is a 
substitution cr, such that {T)9nf ~/i MQ:M(/)o'(r„). 

Theorem 8.4 If^M2 T : Va;{A^^[a;] ^ -^^N[x]}, then T is a storage operator for classical integers. 
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